home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
GAMES
/
RHFT
/
Docs
/
!StrongHlp
/
Utilities
/
Extract
(
.txt
)
< prev
Wrap
RISC OS BBC BASIC V Source
|
1995-02-01
|
2KB
|
72 lines
VDU26,12
$;" at ";
"Hourglass_On"
index% 50*1024
data% 500*1024
C$ = "SWI"
0A$ = "ADFS::Hard1.$.!StrongHlp.HelpData."+C$
9B$ = "ADFS::Hard1.$.StrongFS.!StrongHlp.HelpData."+C$
)B$ = "ADFS::Hard1.$.StrongFS."+C$+"~"
"Strongcreate " + B$
"OS_File",16,A$+".index" ,index%,0
ok1%,,,,ilen%
"OS_File",16,A$+".helpdata" ,data%,0
ok2%,,,,dlen%
ant% = index%!0
PRINT ant%
!sbase% = index% :
+4+ant%*16
index%+=4
prefix$=""
X% = 1
ant%
"Hourglass_Percentage",X%*100/ant%
* name$ =
_ConvStr(sbase% + index%!0)
PRINT name$,":";
REM PRINT TAB(30) index%!4, index%!8, index%!12
((index%!12)
1) <> 0
ftyp% = &FFD
ftyp% = &FFF
name$ = "!"
name$ = "!Root":ftyp% = &FFD
p% =
name$,"_")
p$ =
name$,p%)
_Upshift(p$) <>
_Upshift(prefix$)
prefix$=p$
,2
prefix$ <> ""
"CDir "+B$+"."+prefix$
name$ =
name$,p%+1)
name$ = ""
name$ = "!Root":ftyp% = &FFD
prefix$ = ""
3 full$ = B$ + "." + name$
50 full$ = B$ + "." + prefix$ + "." + name$
8 start% = data% + index%!4
9 end% = start% + index%!8
PRINT prefix$,".",name$,start%,end%,~index%!12
"OS_File",10,full$,ftyp%,,start%,end%
index%+=16
"Hourglass_Off"
_ConvStr(adr%)
A$,C%
A$ = ""
?(adr%) >= 32
C% = ?adr%
C% =
C% =
A$ +=
adr% += 1
_Upshift(A$)
B$,C%
B$ = ""
C% = 1
U! B$ +=
A$,C%,1))